10 REM ASCOREIGN LENURRENCY LENONVERSION (null)ROGRAM BY (null)ICHAEL ATN. CHR$RANGER
20 REM (null)RANSLATED FOR THE LENOMMODORE 64 BY STR$ONNA (null). (null)OODY
30 :
40 REM SET COLORS
50 :
60 POKE53280,8:REM SET BORDER COLOR TO ORANGE
70 POKE53281,15:REM SET BACKGROUND COLOR TO GRAY 3
80 POKE53272,23: REM SELECTS UPPER/LOWER CASE
90 PRINTCHR$(8):REM DISABLES C/SHIFT KEY
100 PRINTCHR$(144):REM SET CHARACTER COLOR TO BLACK
110 :
120 :
130 REM DIMENSION AND READ DATA STATEMENTS
140 DIMCU(1000),A$(1000),N$(20),M$(20)
150 FORX=1TO12:READN$(X):NEXT
160 FORX=1TO11:READM$(X):NEXT
170 :
180 REM GOTO TITLE PAGE & FIRST SCREEN
190 :
200 GOTO1050
210 :
220 REM CALCULATIONS
230 :
240 PRINTCHR$(147)
250 PRINT"    [208][204][197][193][211][197][160][215][193][201][212].  [196][207][201][206][199][160][195][193][204][195][213][204][193][212][201][207][206][211]."
260 IFM$="P"THENPRINT" [201][206][198][207][210][205][193][212][201][207][206][160][215][201][204][204][160][194][197][160][207][213][212][208][213][212][160][212][207][160][208][210][201][206][212][197][210]."
270 IFM$="P"THENGOSUB1720
280 IFA=2ORA=8THENER=ER/10
290 IFA=6THENER=ER/100
300 IFA=3THENER=1/ER
310 IFR$="B"THEN520
320 FORX=1TO9:CU(X)=X/ER:GOSUB840:GOSUB930:NEXT
330 FORX=10TO100STEP10:CU(X)=X/ER:GOSUB840:GOSUB930:NEXT
340 IFM$="P"THENGOSUB1820:GOTO380
350 PRINTCHR$(147):PRINTTAB(2);N$(A)
360 PRINTTAB(2);C$;TAB(16);"$"
370 PRINTTAB(2);:FORI=1TO17:PRINT"-";:NEXTI:PRINT
380 IFA=6ANDM$="P"THENGOSUB2150:GOTO420
390 IFA=6THENFORX=100TO900STEP100:PRINTTAB(4);X;TAB(9);A$(X/100):NEXT
400 IFA=6THENFORX=1000TO9000STEP1000:PRINTTAB(3);X;TAB(9);A$(X/100):NEXT
410 IFA=6THENPRINTTAB(3);"10000";TAB(9);A$(100)
420 IFA=6THENGOTO520
430 IFM$="P"THENGOSUB1940:GOTO470
440 IFA=2ORA=8THENFORX=10 TO 90 STEP 10 :PRINTTAB(4);X;TAB(9);A$(X/10):NEXT
450 IFA=2ORA=8THENFORX=100TO 900STEP 100:PRINTTAB(3);X;TAB(9);A$(X/10):NEXT
460 IFA=2ORA=8THENPRINTTAB(3);"1000";TAB(9);A$(100)
470 IFA=2ORA=8THENER=ER*10:GOTO520
480 IFM$="P"THENGOSUB2000:GOTO520
490 FORX=1TO9:PRINTTAB(4);X;TAB(9);A$(X):NEXT
500 FORX=10TO90STEP10:PRINTTAB(3);X;TAB(9);A$(X):NEXT
510 PRINTTAB(3);"100";TAB(9);A$(100)
520 IFM$="P"ANDR$="A"THENGOTO670
530 IFA=6THENER=ER*100
540 IFR$="A"THEN690
550 IFR$="C"THENFORXZ=1TO22:PRINT"[145]";:NEXTXZ
560 FORX=1TO9:CU(X)=X*ER:GOSUB840:GOSUB930:NEXT
570 FORX=10TO100STEP10:CU(X)=X*ER:GOSUB840:GOSUB930:NEXT
580 IFM$="P"THENGOSUB2060:GOTO670
590 IFR$="C"THEN610
600 PRINTCHR$(147)
610 PRINTTAB(20-LEN(N$(A))+H);N$(A)
620 PRINTTAB(H+6);"$";TAB(20-LEN(C$)+H);C$
630 PRINTTAB(H+3);:FORI=1TO17:PRINT"-";:NEXTI:PRINT
640 FORX=1TO9:PRINTTAB(H+5);X;TAB(H+10);A$(X):NEXT
650 FORX=10TO90STEP10:PRINTTAB(H+4);X;TAB(H+10);A$(X):NEXT
660 PRINTTAB(H+4);"100";TAB(H+10);A$(100)
670 CLOSE4
680 IFM$="P"THENPRINT""
690 PRINT"[208]RESS SPACE BAR TO CONTINUE";
700 POKE204,0:POKE207,0:GETX$:IFX$=""THEN700
710 POKE204,1
720 PRINTCHR$(147)
730 PRINT"[195]ALCULATE ANOTHER RATE? ";
740 POKE204,0:POKE207,0:GETX$:IFX$=""THEN740
750 POKE204,1:PRINTX$
760 IFX$="Y"THEN1140
770 IFX$="N"THEN800
780 IFX$<>"Y"ORX$<>"N"THENZZ=1:ZY=1:GOSUB1640:GOTO730
790 :
800 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
810 POKE631,13:POKE632,13:POKE198,2:END
820 REM DECIMAL PLACES AND SPACING
830 :
840 P=100
850 CU(X)=INT((CU(X))*P+.05)/P
860 A$(X)=STR$(CU(X))
870 IFINT(CU(X))=CU(X)THENA$(X)=A$(X)+".00"
880 IFCU(X)=.1ORCU(X)=.2ORCU(X)=.3OR(X)=.4ORCU(X)=.5ORCU(X)=.6THEN910
890 IFCU(X)=.7ORCU(X)=.8ORCU(X)=.9THEN910
900 IFMID$(A$(X),LEN(A$(X))-2,1)="."THENRETURN
910 A$(X)=A$(X)+"0"
920 RETURN
930 IFLEN(A$(X))=2THENA$(X)="        "+A$(X)
940 IFLEN(A$(X))=3THENA$(X)="       "+A$(X)
950 IFLEN(A$(X))=4THENA$(X)="      "+A$(X)
960 IFLEN(A$(X))=5THENA$(X)="     "+A$(X)
970 IFLEN(A$(X))=6THENA$(X)="    "+A$(X)
980 IFLEN(A$(X))=7THENA$(X)="   "+A$(X)
990 IFLEN(A$(X))=8THENA$(X)="  "+A$(X)
1000 IFLEN(A$(X))=9THENA$(X)=" "+A$(X)
1010 RETURN
1020 :
1030 REM ESTABLISH PARAMETERS
1040 :
1050 PRINTCHR$(147):PRINTCHR$(129):PRINTTAB(2)"[198][207][210][197][201][199][206][160][195][213][210][210][197][206][195][217][160][195][207][206][214][197][210][211][201][207][206][160][208][210][207][199][210][193][205]"
1060 PRINTCHR$(144)
1070 PRINTTAB(18)"BY"
1080 PRINTTAB(10)"[205]ICHAEL [193]. [199]RANGER"
1090 PRINTTAB(5)"[212]RANSLATED BY [196]ONNA [203]. [215]OODY"
1100 PRINTTAB(6)"[208]RESS SPACE BAR TO CONTINUE";
1110 PRINTTAB(35):POKE204,0:POKE207,0:GETZ$
1120 IFZ$=""THEN1110
1130 POKE204,1
1140 PRINTCHR$(147):PRINT"[198]OR WHAT CURRENCY DO YOU WANT A TABLE?"
1150 PRINT
1160 FORX=1TO9:PRINT" ";X;". ";N$(X);:PRINTTAB(20)M$(X):NEXTX
1170 FORX=10TO12:PRINTX;". ";N$(X);:PRINTTAB(20)M$(X):NEXTX
1180 PRINT:POKE 19,32:INPUT"[197]NTER SELECTION: ";X$:PRINT
1190 A=VAL(X$)
1200 IFA<1ORA>12THENZZ=15:ZY=14:GOSUB1640:GOTO1180
1210 IFA=1THENC$=M$(1):GOTO1380
1220 IFA=2THENC$=M$(2):GOTO1380
1230 IFA=3THENC$=M$(3):GOTO1330
1240 IFA=4THENC$=M$(4):GOTO1380
1250 IFA=5THENC$=M$(5):GOTO1380
1260 IFA=6THENC$=M$(6):GOTO1380
1270 IFA=7THENC$=M$(7):GOTO1380
1280 IFA=8THENC$=M$(8):GOTO1380
1290 IFA=9THENC$=M$(9):GOTO1380
1300 IFA=10THENC$=M$(10):GOTO1380
1310 IFA=11THENC$=M$(11):GOTO1380
1320 IFA=12THENINPUT"[197]NTER THE CURRENCY: ";C$:GOTO1380
1330 PRINTCHR$(147)
1340 IFA=3THENPRINT:PRINT"[215]HAT IS THE EXCHANGE RATE?":PRINT
1350 INPUT"1 POUND = $[160]";ER$:ER=VAL(ER$):PRINT:PRINT
1360 IFER<=0THENZZ=4:ZY=3:GOSUB1640:GOTO1350
1370 GOTO1430
1380 PRINTCHR$(147)
1390 PRINT:PRINT"[215]HAT IS THE EXCHANGE RATE?"
1400 PRINT:PRINT"$1.00 =             ";C$
1410 INPUT"[145]";ER$:ER=VAL(ER$):PRINT:PRINT
1420 IFER<=0THENZZ=4:ZY=0:GOSUB1640:GOTO1390
1430 PRINTTAB(5)"[196]O YOU WANT TO SEE"
1440 PRINT
1450 PRINTTAB(10);"[193].  ";C$;" TO $"
1460 PRINTTAB(10)"[194].  $ TO ";C$
1470 PRINTTAB(10)"[195].  [194]OTH":PRINT:PRINT:PRINT
1480 R$="":H=0
1490 PRINT"[197]NTER SELECTION: ";R$;
1500 POKE204,0:POKE207,0:GETR$:IFR$=""THEN1500
1510 POKE204,1:PRINTR$
1520 IFR$="A"ORR$="B"ORR$="C"THEN1540
1530 ZZ=13:ZY=13:GOSUB1640:GOTO1480
1540 M$="":PRINT"<[211]>CREEN OR <[208]>RINTER[160]";M$;
1550 POKE204,0:POKE207,0:GETM$:IFM$=""THEN1550
1560 POKE204,1:PRINTM$
1570 IFM$="S"ORM$="P"THEN1590
1580 ZZ=17:ZY=14:GOSUB1640:GOTO1540
1590 IFR$="C"THENH=18
1600 GOTO240
1610 :
1620 REM ERROR TRAPPING RESPONSE
1630 :
1640 FORXZ=1TO20-ZZ:PRINT"";:NEXTXZ
1650 PRINT"[211]ORRY.  [217]OU MADE AN INCORRECT ENTRY     [208]LEASE RE-ENTER."
1660 FORXZ=1TO23-ZY:PRINT"[145]";:NEXTXZ
1670 RETURN
1680 :
1690 REM TURN ON PRINTER
1700 REM IF YOU WANT SPECIAL TYPE ON PRINTOUT, ENTER COMMANDS HERE
1710 :
1720 :
1730 OPEN4,4,7
1740 RETURN
1750 DATA"[193]USTRIAN","[194]ELGIAN","[194]RITISH","[196]ANISH","[198]RENCH","[201]TALIAN","[196]UTCH"
1760 DATA"[211]PANISH","[211]WEDISH","[211]WISS","[215]EST [199]ERMAN","[207]THER"
1770 DATA"[211]CHILLING","[198]RANCS","[208]OUNDS","[203]RONE","[198]RANCS","[204]IRA","[199]UILDERS"
1780 DATA"[208]ESETAS","[203]RONE","[198]RANCS","[205]ARKS"
1790 :
1800 REM SEND TO PRINTER
1810 :
1820 PRINT#4
1830 PRINT#4
1840 PRINT#4,CHR$(16)"02"N$(A)
1850 PRINT#4,CHR$(16)"02"C$;CHR$(16)"16""$"
1860 PRINT#4,"  -----------------"
1870 RETURN
1880 IFA=6THENFORX=100TO900STEP100:PRINT#4,CHR$(16)"04"X;
1890 PRINT#4,CHR$(16)"09"A$(X/100):NEXT
1900 IFA=6THENFORX=1000TO9000STEP1000:PRINT#4,CHR$(16)"03"X;
1910 IFA=6THENPRINT#4,CHR$(16)"09"A$(X/100):NEXT
1920 IFA=6THENPRINT#4,CHR$(16)"03""10000";CHR$(16)"09"A$(100)
1930 RETURN
1940 IFA=2ORA=8THENFORX=10TO90STEP10:PRINT#4,CHR$(16)"04"X;
1950 IFA=2ORA=8THENPRINT#4,CHR$(16)"09"A$(X/10):NEXT
1960 IFA=2ORA=8THENFORX=100TO900STEP100:PRINT#4,CHR$(16)"03"X;
1970 IFA=2ORA=8THENPRINT#4,CHR$(16)"09"A$(X/10):NEXT
1980 IFA=2ORA=8THENPRINT#4,CHR$(16)"03""1000";CHR$(16)"09"A$(100)
1990 RETURN
2000 FORX=1TO9:PRINT#4,CHR$(16)"04"X;CHR$(16)"09"A$(X):NEXT
2010 FORX=10TO90STEP10
2020 PRINT#4,CHR$(16)"03"X;
2030 PRINT#4,CHR$(16)"09"A$(X):NEXT
2040 PRINT#4,CHR$(16)"03""100";CHR$(16)"09"A$(100)
2050 RETURN
2060 PRINT#4:PRINT#4:PRINT#4
2070 CMD4:PRINTTAB(20-LEN(N$(A)));N$(A);
2080 PRINT#4,CHR$(16)"06""$";
2090 CMD4:PRINTTAB(20-LEN(C$));C$
2100 PRINT#4,CHR$(16)"03""------------------"
2110 FORX=1TO9:PRINT#4,CHR$(16)"05"X;CHR$(16)"10"A$(X):NEXT
2120 FORX=10TO90STEP10:PRINT#4,CHR$(16)"04"X;CHR$(16)"10"A$(X):NEXT
2130 PRINT#4,CHR$(16)"04""100";CHR$(16)"10"A$(100)
2140 RETURN
2150 FORX=100TO900STEP100:PRINT#4,CHR$(16)"04"X;
2160 PRINT#4,CHR$(16)"09"A$(X/100):NEXT
2170 FORX=1000TO9000STEP1000:PRINT#4,CHR$(16)"03"X;
2180 PRINT#4,CHR$(16)"09"A$(X/100):NEXT
2190 PRINT#4,CHR$(16)"03""10000";CHR$(16)"09"A$(100)
2200 RETURN